Perl regex

welcome to shbcf.ru